 


DATASET: Issue Competition Comparative Project (ICCP)
Source: De Sio, Lorenzo; Emanuele, Vincenzo; Maggini, Nicola; Paparo, Aldo; Angelucci, Davide, D’Alimonte, Roberto (2019): Issue Competition Comparative Project (ICCP). GESIS Data Archive, Cologne. ZA7499 Data file Version 2.0.0, doi:10.4232/1.13374 survey data

use "Dataset-RISP.dta", clear

ssc install blindschemes

set scheme plottig
graph set window fontface "Arial Narrow"
 

//Model 1
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig eudist immdist_ econdist lrdist size_ i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model1.rtf", wide r2 se  mtitle replace
//Model 2
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig eudist immdist_ econdist lrdist size_ c.eudist#i.country i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model2.rtf", wide r2 se  mtitle replace
//Figure 1
margins country, dydx (eudist)
marginsplot, by(country)
//Model 3
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig eudist immdist_ econdist lrdist size_ Twitter_sal c.Twitter_sal#c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model3.rtf", wide r2 se  mtitle replace
//Model 4
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig immdist_ econdist lrdist size_ c.CHES_sal##c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model4.rtf", wide r2 se  mtitle replace
//Figure 2
margins, dydx (eudist) at(CHES_sal=(0.38 0.48 0.58 0.68 0.78 0.88 0.91))
marginsplot

//Model 5
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig immdist_ econdist lrdist size_ i.anti_eu##c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model5.rtf", wide r2 se  mtitle replace

//Figure 3
margins anti_eu, dydx (eudist)
marginsplot


//Model 6
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig immdist_ econdist lrdist size_ c.eu_position##c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace
esttab using "Model6.rtf", wide r2 se  mtitle replace
//Figure 4
margins, dydx (eudist) at (eu_position=(1.1 1.2 1.3 1.5 1.8 1.9 2.3 2.6 2.7 3.4 3.6 4.2 4.6 4.7 4.8 5 5.4 5.5 6.1 6.5 6.7 6.9 7)) 
marginsplot


//Model 7
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig immdist_ econdist lrdist size_ i.anti_eu##c.Twitter_sal##c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace 
esttab using "Model7.rtf", wide r2 se mtitle replace

//Figure 5
margins, dydx (eudist) at(Twitter_sal=(0 0.1 0.2 0.3 0.4) anti_eu=(0 1)) 
marginsplot

//Model 8
eststo clear
eststo: regress ptv_ party_close y_gender y_age y_edu y_townsize y_relig immdist_ econdist lrdist size_ i.anti_eu##c.CHES_sal##c.eudist i.country, vce (cluster token)
esttab, wide r2 se  mtitle replace  
esttab using "Model8.rtf", wide r2 se mtitle replace

//Figure 6
margins anti_eu, dydx (eudist) at(CHES_sal=(0.38 0.43 0.44 0.47 0.48 0.49 0.51 0.53 0.56 0.58 0.63 0.64 0.68 0.71 0.72 0.74 0.78 0.79 0.81 0.82 0.88 0.91))
marginsplot





